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4 01:18: VAX=11 Bliss-32_V4.0-742 P 1 SNO 
Bo 93i55;s PERS UMEMASTERSCE TIC. GReISNDERL.B32:1°%° «1) vo4 
MODULE SNDERL ( 
LANGUAGE (BL IS832), 
IDENT = 'V04-000" 


: | 


~ 


BEGIN 
' | 
SRR RAR AREER AREA AAA AEE ETE REET ERATE TAKARA AERA 
1 

ie COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 


ie DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
tt ALL RIGHTS RESERVED. 


+d 

© 

® 

af 

‘ * 
is THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED ®* 
is ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE ®* 
is INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER ®* 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
is OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. * 
& 

is THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE ®* 
is AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT ®* 
iw CORPORATION. * 
' * 
is DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
ie SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. ‘ 
® 

® 
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ABSTRACT: 


This routine sends a message to the error logger to inform it of a 
volume mount or dismount. 


ENVIRONMENT : 


STARLET operating system, including privileged system services 
and internal exec routines. : 


AUTHOR: Andrew C. Goldstein, CREATION DATE: 23-Jun-1978 18:47 
MODIFIED BY: 
v03-001 LMP0221 L. Mark Pilant, 27-Mar-1984 13:21 
Change UCBSL_OWNUIC to ORBSL_OWNER and UCB$W_VPROT to 


A0100 = ACG0001 _ . Andrew C. Goldstein, 10-Oct-1978 20:01 
Previous revision history moved to f11A.REV 
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vou=b0 


#1 i. 
6 : | : 
es | AERGMR “REERAONRE HB" 
65 9 

ef 0 

68 8 } 3 

nis 1 LOCK_CODE; 


| 
| 
! 
This routine is called at raised IPL and must be locked into the working set. 
| 
} 


1 | 
SNDER 1-5 1984 01:18: VAX-11 Bliss-32 V4.0-742 Page 3) 
v04= 107388-138e 93:38:35 DISKSVMSMASTER:CF11A.SRCISNDERL.B32; 1 ; (2) | 


} 
3 fi ¢ } GLOBAL ROUTINE SEND_ERRLOG (MODE, UCB) = | 
: ig § 1 44 
: 74 1! 
3 fe 5 ! FUNCTIONAL DESCRIPTION: 
: A] 01 This routine sends a message to the error logger to inform it of a 
3 a 4! : volume mount or dismount. 
RB RT | 
3 1 94 1 ! CALLING SEQUENCE: | 
; ¢ 8? ! SEND_ERRLOG (ARG1, ARG2) | 
: BG 0 37 | i INPUT PARAMETERS: 
3; 8 0398 1! ARG1: 1 to signal mount 
ci @ 8 99 1! 0 to signal dismount 
3 Hf BeOy : ARG3: address of UCB 
: 89 0404 1} IMPLICIT INPUTS: 
a Beet 1 | ome 
coe 0405 1 |! OUTPUT PARAMETERS: 
Be bcor i — 
: 95 0408 1 | IMPLICIT OUTPUTS: 
: 3 be10 i A 
: 98 0411 1 | ROUTINE VALUE: 
: 100 beg} i 
> 101 0414 1 ! SIDE EFFECTS: 
: 106 0415 1! Message sent to error logger 
: 0416 1! 
; 104 0417 1 !=- 
s 105 0418 1 
3 196 0419 BEGIN 
: 108 B63 5 MAP 
: 109 d4g¢ UCB : REF BBLOCK; |! UCB argument 
: 111 0424 2 LINKAGE 
; ig 0425 L_ERL_ALLOC = JSB (REGISTER = 1) : 
5; 7F 0426 GLOBAL (ADDRESS = 2) 
e 13 Be i NOTUSED ( a 4, _ x 6, Te 8, 9, 10, i}, | 
; 116 429 L_ERL_RELEASE = JSB (REGISTER = 2) : 
: 17 450 me NOTUSED (3, 4, 5. 6, 7, 8, 9, 10, 11); | 
5 119 a3 LOCAL 
: 120 rh} ORB : REF BBLOCK, ! local address of ORB | 
: } 1 ° 7 MSG_BUFFER : REF BBLOCK; ! other buffer pointer to dodge MOVC 
we ‘ § EXTERNAL ROUTINE 
; 126 ERLSALLOCEMB : LLERL_ALLOC ADDRESSING MODE (GENERAL) 
s 125 4 3 ' allocate error log buffer 
s 126 4 ERLSRELEASEMB : LLERL_RELEASE ADDRESSING_MODE (GENERAL); 
3 127 0440 ! release error log buffer 


wn 


0475 IF .BBLOCKCUCBCUCBSL_DEVCHAR] ,DEV$V_FOR] 
ly -BBLOCKCUCBCUTBSL_DEVCHARJ ,DEV$v_Sap) 


N 
CHSMOVE (VCB$S VOLNAME . 
BBLOCK C.OCBCUCBSL_VCB), VCBST_VOLNAME), 
0480 as MSG_BUFFERCEMBST_VA_LABELJ) 


st 
| SNDER 16-Sep-1984 1 VAX-11 Bliss-32 V4.0-742 Page 4 
y04=000 12-808- 1382 9} § 3§ DISKSVMSMASTER:CF11A.SRCJSNDERL.B32; 1 ° (2) | 
§ 163 
. cas Allocate an errror log buffer. If this fails, forget it. | 
“us S' | 
: 46 BEGIN 
44 GLOBAL REGISTER 
5 *t8 ADDRESS = 2 : REF BBLOCK; ! pointer to error log buffer 
7 0450 3 IF NOT ERLSALLOCEMB (EMBSK_VM_LENGTH) | 
451 THEN RETURN 1; 
9 ¢ MSG_BUFFER = .ADDRESS; 
9 433 END; 
¢ 455 ! Now fill in the message buffer. 
Pe eee 
5 Oc IF .MODE 
‘4 045 THEN MSG_BUFFERCEMBSW_VM_ENTRY] = EMBSK_VM 
4 re ELSE MSG_BUFFERCEMBSW_VM_ENTRY] = EMBSK_VD; ! Log entry type 
9 Qo6¢ ORB = .UCBCUCBSL_ORB); 
0 046 MSG_BUFFERCEMBSL—VM_OWNUIC = .ORBCORBSL_OWNER]; 
1 0464 2 MSG_BUFFERCEMBSL—VM_ERRCNT = ,UCBCUCB$W-ERRCNTI; 
é 0465 MSG_BUFFERCEMBSL_VM_OPRCNT = .UCBCUCB$L-OPCNTJ; 
; 046 MSG_BUF FERCEMBSW_VM_UNI TJ = ,UCBCUCBS$W-UNITI; 
5 0468 2 MSG_BUFFERCEMBSW_VM_VOLNUM) = 0; 
5 0469 MSG_BUFFERCEMESW_VM_NUMSETJ = 0; 
8 0471 CHSMOVE (. (BBLOCK C -ucBCUCBSL DDB], DDBST_NAME])<0,8> + 1, 
9 0478 BBLOCLK £ UCB UCBSL_DBB), DDBST_NAME], 
04673 MSG_BUFFERCEMBSB_VA_NAMLNG)); 
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0481 
Rene BEGIN 
048 LOCAL 
1 484 MVL : REF BBLOCK, } magtape volume Labels 
§ 85 MVL_ENTRY : REF BBLOCK, : address of label entry 
+] RUN, ! relative unit number 
4 48 RVT : REF BBLOCK, ' relative volume table 
5 88 UCBLIST : REF VECTOR, ! address of UCB List 
6 89 : REF BBLOCK; ' volume control block 
7 490 VCB = eer ucesL vCal: 
8 91 RVT = .VCB 5 ot RVTJ; 
9 % UCBLIST = RVI RVTSL_UCBLST); 
=. > 
1 494 MSG_BUFFERCEMBSW-VM_NUMSET) = .MVLCMVL$B_NVOLS); ' no of volumes in vol set known 
¢ 495 HSF ILL ( {CESS _VOLNARE MSG_BUFFER FABST_VA_LABEL)) ; 
049 ; INCR I FROM TO TRVTCRVT$B_NVOLS) - 1 DO 
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Neecin 

MSG BUF FERCEMBSW VM VOLNUAI | 
CHSCOP YT CAVLSS vOCLBC ,MVL 
OLNAME .MSG_BU 
EXITVooPS” 


END; 
MVL_ENTRY = 
END; 


04 
04 


—Se 
O@olo 


om 6 


el; 
CBLISTC.1) EQL .UCB THEN EXITLOOP; 


MVL + MVLSK_FIXLEN; 
TO .MVLEMVCSB_NVOLS] -1 DO 


Finally release the buffer and make the entry. 


ERLSRELEASEMB (.MSG_BUFFER); 


07FC 00000 


51 3E 
000000006 00 

03 50 
00C0 

5A 52 
07 04 AC 
AA 40 8F 
05 

Ab 41 BF 
59 08 AC 
50 1c =—Ad 
aa 60 
AR 0086 c9 
AB A9 
BA 54 rH 
so oO 
51 1 40 


> th ee 


-MVL_ENTRY + MVL$K_LENGTH; 


LLBL]," °, 
Meiiete 


! end of routine 


- TITLE 
- IDENT 


-EXTRN 


ERLSALLOCEMB, ERLSRELEASEMB 
SLOCKEDC1$,NOWRT,2 
sem FAR. OS. Save R2,R3,R4 ~R5,R6,R7,R8,R9,- 


ADDRESS MSG_BUFFER 

#64, 4(MSG_BUFFER) 

#65, 4(MSG_BUFFER) 
Ro 
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DVS FO ~ VC B2wazyr-— 
PAQOVTWOADOS— 
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HOOD FR UNSCOS 


m 
SNDER 1b- e VAX-11 Bliss-32 V4.0-742 
y04=000 14- os 138 93; 38: 3§ DISKSVMSMASTER:CF11A.SRCJSNDERL.B32; fag 
1E AA 4 =A 51 2 4 MOVC3 R1, 20(RO), 30(MSG_BUFFER) 
Oe 3B «COAG CSC 3 BLBS Rb tR8s. 4$ : 
0c 38 AQ 05 € BBS #5, 56(R9), 5$ 
50 34 Ad ‘ 4$ MOVL. 52(R9), RO 
32. AA 146 AO 0¢ 06 Moves He. 26(R0), 5O(MSG_BUFFER) 
50 34 Ad 06 S068 5$ MOVL 3 (R9) vee 
20 Ad D 006¢ MOVL (vcBs, R 
q 44 AG 3 0 MOVAB 68(R6) ueaList 
5 34 AO 00 00074 MOVL 52(VCBS, MVL 
30 AA 0B A? 9B 00078 movZBu 11(MVL); 48(MSG_BUFFER) 
0c 20 6E ‘ 00 2c 9070 OvcS #0, (SPS, #32, #12, 50(MSG_BUFFER) 
51 0B A6 9A 00084 MOVZBL 11(RVT), R1 
50 01 CE 00088 MNEGL #1, I 
09 11 00088 BRB 7$ 
rT. 50 DO 00 D 6$ MOVL I, RUN 
59 6840 01 0090 CMPL (UCBLIST)CIJ, R9 
04 13 00094 BEQL BS 
F3 50 51 F2 90096 7$: AOBLSS R1, 1 6$ 
58 24 AZ 99E OOO9A 8S: MOVAB 36(R75, MVL_ENTRY 
57 0B A7 9A 0009 MOVZBL 11(MVLS, R? 
59 01 CE 000A MNEGL #1, I 
1D 11 QOOA BRB 11$ 
56 06 As 08 00 ED O00A7 9S: CMPZV #0, #8, 6(MVL_ENTRY), RUN 
12 12 000AD BNEQ 108 
OE 07 AB ES OOOAF BLBC_ 7 (MVL_ENTRY 
2E AA 59 01 Ail 000B3 ADDW3 #1, I> NORMS hs 
0c 20 68 06 2C 000B8 MOVCS #6. (MVL_ENTRY), #32, #12, 5O(MSG_BUFFER) 
32. OAA 000BD 
07 11 O00BF RB 12$ 
58 08 CO 000C1 10$:  ADDL2 #8, MVL_ENTRY 
DF 59 7 F2 .000C4 11$:  AOBLSS R7. I, 9 
52 5A D0 000C8 12$: OVL #MSG_BUFFER, R2 
000000006 00 16 000CB JSB ERLSRELEASEMB 
0 01 DO 00001 138: MOVL #1, RO 
04 000D4 RET 


; Routine Size: 213 bytes, Routine Base: S$LOCKEDC1$ + 0000 


PSECT SUMMARY 
Name Bytes Attributes 
SLOCKEDC1$ 213 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
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Library Statistics 


Pan Vo cobs | 2a Ue er omens Symbol$ -coceee- Pages Processing 
: File Total Loaded Percent Mapped Time 
: _$255$DUA28:(SYSLIBILIB.L32;1 18619 37 0 1000 00:01.9 
; COMMAND QUALIFIERS 
; BLISS/CHECK=(FIELD, IN) TIAL,OPTIMIZE)/LIS=LIS$:SNDERL/OBJ=O0BJ$:SNDERL MSRC$:SNDERL/UPDATE=(ENHS$: SNDERL) 
; pizes 213 code + 0 data bytes 
un Time: 0: 


phe Time: 00: 3. 7 
Lines/CPU Min: 3411 
meena A Mig 17061 
nner Used: 128 pages 
Compilation Complete 
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